inherited frmNewSalarySheet: TfrmNewSalarySheet
  Left = 739
  Top = 273
  Width = 355
  Height = 155
  Caption = #1057#1086#1079#1076#1072#1085#1080#1077' '#1085#1086#1074#1086#1081' '#1074#1077#1076#1086#1084#1086#1089#1090#1080
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel [0]
    Left = 1
    Top = 16
    Width = 92
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = #1054#1088#1075#1072#1085#1080#1079#1072#1094#1080#1103
  end
  object Label2: TLabel [1]
    Left = 1
    Top = 44
    Width = 92
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = #1043#1086#1076
  end
  object Label3: TLabel [2]
    Left = 1
    Top = 72
    Width = 92
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = #1052#1077#1089#1103#1094
  end
  inherited Panel1: TPanel
    Top = 101
    Width = 347
    inherited BitBtn1: TBitBtn
      Left = 140
    end
    inherited BitBtn2: TBitBtn
      Left = 242
    end
  end
  inherited ToolBar1: TToolBar
    Width = 347
    Height = 0
    Enabled = False
    Visible = False
    inherited ToolButton1: TToolButton
      Enabled = False
    end
    inherited ToolButton2: TToolButton
      Enabled = False
    end
    inherited ToolButton3: TToolButton
      Enabled = False
    end
    inherited ToolButton4: TToolButton
      Enabled = False
    end
  end
  object lcb_Org: TDBLookupComboboxEh [5]
    Left = 101
    Top = 12
    Width = 237
    Height = 19
    AlwaysShowBorder = True
    DropDownBox.SpecRow.CellsText = '---'
    DropDownBox.SpecRow.ShortCut = 46
    DropDownBox.SpecRow.Visible = True
    EditButtons = <>
    Flat = True
    KeyField = 'ID'
    ListField = 'EMPNAME'
    ListSource = dsc_Orgs
    TabOrder = 2
    Visible = True
  end
  object dbnYear: TDBNumberEditEh [6]
    Left = 101
    Top = 40
    Width = 121
    Height = 19
    AlwaysShowBorder = True
    EditButtons = <
      item
        Style = ebsPlusEh
        OnClick = dbnYearEditButtons0Click
      end
      item
        Style = ebsMinusEh
        OnClick = dbnYearEditButtons1Click
      end>
    Flat = True
    MaxValue = 2050.000000000000000000
    MinValue = 2000.000000000000000000
    TabOrder = 3
    Visible = True
  end
  object cbMonth: TDBComboBoxEh [7]
    Left = 101
    Top = 68
    Width = 121
    Height = 19
    AlwaysShowBorder = True
    EditButtons = <>
    Flat = True
    Items.Strings = (
      #1071#1085#1074#1072#1088#1100
      #1060#1077#1074#1088#1072#1083#1100
      #1052#1072#1088#1090
      #1040#1087#1088#1077#1083#1100
      #1052#1072#1081
      #1048#1102#1085#1100
      #1048#1102#1083#1100
      #1040#1074#1075#1091#1089#1090
      #1057#1077#1085#1090#1103#1073#1088#1100
      #1054#1082#1090#1103#1073#1088#1100
      #1053#1086#1103#1073#1088#1100
      #1044#1077#1082#1072#1073#1088#1100)
    KeyItems.Strings = (
      '1'
      '2'
      '3'
      '4'
      '5'
      '6'
      '7'
      '8'
      '9'
      '10'
      '11'
      '12')
    TabOrder = 4
    Visible = True
  end
  inherited ActionList1: TActionList
    Left = 296
    Top = 64
    inherited aSave: TAction
      OnExecute = aSaveExecute
    end
    inherited aCancel: TAction
      OnExecute = aCancelExecute
    end
  end
  inherited PropStorage: TPropStorageEh
    Left = 296
    Top = 36
  end
  object dsc_Orgs: TDataSource
    DataSet = ds_Orgs
    Left = 260
    Top = 36
  end
  object ds_Orgs: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    EMPNAME,'
      '    CODE'
      'FROM'
      '    REMPLOYERS '
      'order by 2')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Left = 232
    Top = 36
    oFetchAll = True
    object ds_OrgsID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_OrgsEMPNAME: TFIBStringField
      FieldName = 'EMPNAME'
      Size = 255
      EmptyStrToNull = True
    end
    object ds_OrgsCODE: TFIBIntegerField
      FieldName = 'CODE'
    end
  end
  object LocalTrans: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    CSMonitorSupport.Enabled = csmeDatabaseDriven
    Left = 204
    Top = 36
  end
  object QNewSheet: TpFIBQuery
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'SELECT'
      '    RID'
      'FROM'
      '    PROC_EMP_REESTR_CREATE(:PEMPLOYER_ID,'
      '    :PMONTH,'
      '    :PYEAR) ')
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Left = 232
    Top = 64
  end
end
